home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1991 September & October / rerun-1991-09-10.d64 / menu runner (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  13KB  |  45 lines
  1. 10 poke45,0:poke46,60:clr:print chr$(142);chr$(8)"[147]":poke788,52
  2. 20 poke 53280,10:poke 53281,0
  3. 30 a$="[144]  [223][144]    [169] [144]         [144]    [223][144]     [144]    [144]      [144]  "
  4. 40 b$="[144]   [223][144]  [169]  [144]    [144]          [223][144]    [144]    [144]      [144]  "
  5. 50 c$="[144]  [146][223] [223][169] [146][169] [144]    [144]         [146][223] [223][144]   [144]    [144]      [144]  "
  6. 60 d$="[144]  [144] [146][223]  [146][169][144]  [144]        [144]     [144] [146][223] [223][144]  [144]    [144]      [144]  "
  7. 70 e$="[144]  [144]  [146][223][169][144]   [144]    [144]         [144]  [146][223] [223] [144]    [144]      [144]  "
  8. 80 f$="[144]  [144]       [144]    [144]         [144]   [146][223]  [144]    [144]      [144]  "
  9. 90 g$="[144]  [144]       [144]         [144]    [144]    [146][223] [144]          [144]  "
  10. 91 h$="[145][145][144]                    [194]          [144]         "
  11. 92 i$="[145][145][144]             me[158]n[159]u   [194] terry's  [144]         "
  12. 93 j$="[145][145][144]                    [194] unique   [144]         "
  13. 94 k$="[145][145][144]            [158]select  [194] [154]programs [144]         "
  14. 95 l$="[145][145][144]           [158]programs [194]          [144]         "
  15. 96 m$="[145][145][144]            [158]by no.  [194] [156]dec.,'90 [144]         "
  16. 97 n$="[145][145][144]                    [194]          [144]         "
  17. 100 print:printtab(12)"[158]1) moon phases"
  18. 110 printtab(12)"2) elapsed time"
  19. 120 printtab(12)"3) number conversions"
  20. 130 printtab(12)
  21. 140 printtab(12)"f7) return to menu"
  22. 150 printtab(12)"f8) quit":poke198,0
  23. 155 gosub300:forx=1to150:gosub170:next:gosub360:forx=1to200:gosub170:next
  24. 157 goto155
  25. 170 get zz$:if zz$="[140]" then print"[147]":poke 53280,14:poke 53281,14:sys 64738
  26. 180 if zz$>"0" and zz$<"5" then200
  27. 190 return
  28. 200 z=val(zz$)
  29. 210 on z goto220,230,240,250
  30. 220 p$="moon phases":goto260
  31. 230 p$="elapsed time":goto260
  32. 240 p$="number convert":goto260
  33. 250 p$="guess the secret word":goto260
  34. 260 print"[147]":for c1=1 to (40-len(p$)-8)/2:print" ";:next
  35. 270 print"[159]loading [158]"p$
  36. 280 print"[144]load"chr$(34)p$chr$(34)",8"
  37. 290 poke198,4:poke631,13:poke632,82:poke633,213:poke634,13:end
  38. 300 printa$;:forx=1to95:next:printb$;:forx=1to95:next:printc$;
  39. 330 forx=1to95:next:printd$;:forx=1to95:next:printe$;
  40. 340 forx=1to95:next:printf$;:forx=1to95:next:printg$:return
  41. 360 printn$;:forx=1to95:next:printm$;:forx=1to95:next
  42. 370 printl$;:forx=1to95:next:printk$;:forx=1to95:next:printj$;
  43. 390 forx=1to95:next:printi$;:forx=1to95:next:printh$
  44. 400 print"[145][145][145]":return
  45.